home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / home / chkmstr / menu.prg < prev    next >
Text File  |  1990-03-05  |  3KB  |  83 lines
  1. IF ISCOLOR()
  2. SET COLOR TO W/B,W/R,BG
  3. ENDIF
  4. CLEAR
  5. @10,20 SAY "LOADING DATA FILES -------------------------------"
  6. RESTORE FROM CHEXMANG
  7. SET TALK OFF
  8. SET SAFETY OFF
  9. DO WHILE .T.
  10. CLEAR
  11. TEXT
  12.   #############################################################################
  13.   ##                                                                         ##
  14.   ##                      C H E X  -----   M A S T E R                       ##
  15.   ##                                                                         ##
  16.   ##                   ****   CONFIGURATION  MENU   ****                     ##
  17.   ##                                                                         ##
  18.   ##                                                                         ##
  19.   ##             { A }   SET - UP TO [ A ] DRIVE                             ##
  20.   ##                                                                         ##
  21.   ##             { B }   SET - UP TO [ B ] DRIVE                             ##
  22.   ##                                                                         ##
  23.   ##             { C }   SET-UP AND TRANSFER CHEX-MASTER TO [ C ] DRIVE      ##
  24.   ##                                                                         ##
  25.   ##             { D }   SET-UP AND TRANSFER CHEX-MASTER TO [ D ] DRIVE      ##
  26.   ##                                                                         ##
  27.   ##             { R }   RUN CHEX-MASTER                                     ##
  28.   ##                                                                         ##
  29.   ##             Select the option that you wish to use to setup             ##
  30.   ##                                                                         ##
  31.   ##                                                                         ##
  32.   #############################################################################
  33. ENDTEXT
  34. CHOICE= " "
  35. @19,29 SAY "and run CHEX - MASTER." GET CHOICE
  36. READ
  37. CHOICE=UPPER(CHOICE)
  38. DO CASE
  39. CASE CHOICE="A"
  40. CONFIG= "A"
  41. CLEAR
  42. @10,20 SAY "SAVING DATA FILES ----------------------------"
  43. SAVE TO A:CHEXMANG
  44. DO CHEXRUN
  45. CASE CHOICE="B"
  46. CONFIG= "B"
  47. CLEAR
  48. @10,20 SAY "SAVING DATA FILES -----------------------------"
  49. SAVE TO B:CHEXMANG
  50. DO CHEXRUN
  51. CASE CHOICE="C"
  52. CONFIG= "C"
  53. CLEAR
  54. @10,20 SAY "SAVING DATA FILES ------------------------------"
  55. SAVE TO A:CHEXMANG
  56. CLEAR
  57. WAIT "INSERT CHEX-MASTER DISK INTO { A } DRIVE. Press any key to continue."
  58. RUN A:INSTALC.BAT
  59. WAIT "INSTALL TO { C } DRIVE COMPLETED !! Press any key to continue."
  60. SET PATH TO C:\CHEXMANG
  61. DO CHEXRUN
  62. CASE CHOICE="D"
  63. CONFIG= "D"
  64. CLEAR
  65. @10,20 SAY "SAVING DATA FILES ------------------------------"
  66. SAVE TO A:CHEXMANG
  67. WAIT "INSERT CHEX-MASTER DISK INTO { A } DRIVE. Press any key to continue."
  68. RUN A:INSTALD.BAT
  69. WAIT "INSTALL TO { D } DRIVE COMPLETED !! Press any key to continue."
  70. SET PATH TO D:\CHEXMANG
  71. DO CHEXRUN
  72. CASE CHOICE= "R"
  73. DO CHEXRUN
  74. OTHERWISE
  75. @22,1 SAY "**** ENTER { A },{ B },{ C },{ D },or { R } ****"
  76. @23,1 SAY "YOU ENTERED" GET CHOICE
  77. ENDCASE
  78. WAIT
  79. ENDDO
  80. RETURN
  81.  
  82.  
  83.